home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / t2win_32.zip / _TILE.FRM < prev    next >
Text File  |  1996-05-14  |  998b  |  53 lines
  1. VERSION 4.00
  2. Begin VB.Form frmTile 
  3.    Caption         =   "TileBitmap"
  4.    ClientHeight    =   3375
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   4980
  8.    Height          =   3780
  9.    Left            =   1080
  10.    MDIChild        =   -1  'True
  11.    ScaleHeight     =   3375
  12.    ScaleWidth      =   4980
  13.    Top             =   1170
  14.    Width           =   5100
  15. End
  16. Attribute VB_Name = "frmTile"
  17. Attribute VB_Creatable = False
  18. Attribute VB_Exposed = False
  19. Option Explicit
  20. Option Base 1
  21.  
  22. Private Const Iteration = 25
  23.  
  24. Dim IsLoaded         As Integer
  25.  
  26. Dim TimerStartOk     As Integer
  27. Dim TimerCloseOk     As Integer
  28.  
  29. Dim TimerHandle      As Integer
  30. Dim TimerValue       As Long
  31.  
  32.  
  33. Private Sub Form_Load()
  34.  
  35.    IsLoaded = False
  36.    
  37.    Show
  38.    
  39.    IsLoaded = True
  40.    
  41. End Sub
  42.  
  43.  
  44. Private Sub Form_Paint()
  45.  
  46.    Dim intResult        As Integer
  47.    
  48.    intResult = cTileBitmapOnWindow(Me.hWnd, App.Path + "\time2win.dib")
  49.    
  50. End Sub
  51.  
  52.  
  53.